Testing plotly interactive tooltip

New cases map from deltas.rmd

library(zoo)
NY_region_palette.df <- NY_counties_regions %>%
dplyr::select(Region,Color) %>% 
dplyr::distinct(Region,Color)

NY_region_palette <- setNames(as.character(NY_region_palette.df$Color), as.character(NY_region_palette.df$Region))

g <- covid_NY_TS_plot.cases %>%
  group_by(Region, date) %>%
  summarise(diff = sum(diff)) %>%
  mutate(ma = c(NA, NA,rollmean(diff, 3, align = "right"))) %>%
      ggplot(aes(date, 
                 ma, 
                 color = Region)) +
      scale_color_manual(values=NY_region_palette) +
      geom_line(size = 1) +
      scale_y_continuous(
        trans = "log10",
        breaks = c(10,100,500,1000,5000,10000, 50000)
      ) +
      scale_x_datetime(date_breaks = "1 week", date_minor_breaks = "1 day", date_labels = "%b %d") +
      ylab("New Cases") + 
      xlab("Date") +
      ggtitle("New York State NEW reported COVID-19 Cases") +
      geom_vline(aes(xintercept=as_datetime("2020-03-20"), linetype="Gov. Cuomo issues stay-at-home order"), color = "black") + 
      scale_linetype_manual(name = "Events", 
                            values = c(2), 
                            guide = guide_legend(override.aes = list(color = c("black")))) +
      NULL
g

Plotly test

ggplotly(g)
NaNs producedTransformation introduced infinite values in continuous y-axis
LS0tCnRpdGxlOiAiUGxvdGx5IHRlc3QiCmF1dGhvcjogIkpvc2UgRmlndWVyb2EiCmRhdGU6IDA1LzE3LzIwMjAKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGVzdGluZyBwbG90bHkgW2ludGVyYWN0aXZlIHRvb2x0aXBdKGh0dHBzOi8vcGxvdGx5LmNvbS9nZ3Bsb3QyL2ludGVyYWN0aXZlLXRvb2x0aXAvKQoKCmBgYHtyIHNldHVwLCBlY2hvPUZBTFNFLCBpbmNsdWRlPUZBTFNFfQppZighcmVxdWlyZSgicGxvdGx5IikpIHsKICBpbnN0YWxsLnBhY2thZ2VzKCJwbG90bHkiKQogIGxpYnJhcnkocGxvdGx5KQp9CmtuaXRyOjpvcHRzX2tuaXQkc2V0KHJvb3QuZGlyID0gIi4uLyIpCmBgYAoKCmBgYHtyIGltcG9ydHMsIGVjaG89RkFMU0V9CnNvdXJjZSgibW9kdWxlcy9Tb3VyY2UuUiIpCnNvdXJjZSgibW9kdWxlcy9kYXRhX2xvYWQuUiIpCnNvdXJjZSgibW9kdWxlcy9wcmVwcm9jZXNzaW5nLlIiKQpgYGAKCk5ldyBjYXNlcyBtYXAgZnJvbSBkZWx0YXMucm1kCmBgYHtyfQpsaWJyYXJ5KHpvbykKTllfcmVnaW9uX3BhbGV0dGUuZGYgPC0gTllfY291bnRpZXNfcmVnaW9ucyAlPiUKZHBseXI6OnNlbGVjdChSZWdpb24sQ29sb3IpICU+JSAKZHBseXI6OmRpc3RpbmN0KFJlZ2lvbixDb2xvcikKCk5ZX3JlZ2lvbl9wYWxldHRlIDwtIHNldE5hbWVzKGFzLmNoYXJhY3RlcihOWV9yZWdpb25fcGFsZXR0ZS5kZiRDb2xvciksIGFzLmNoYXJhY3RlcihOWV9yZWdpb25fcGFsZXR0ZS5kZiRSZWdpb24pKQoKZyA8LSBjb3ZpZF9OWV9UU19wbG90LmNhc2VzICU+JQogIGdyb3VwX2J5KFJlZ2lvbiwgZGF0ZSkgJT4lCiAgc3VtbWFyaXNlKGRpZmYgPSBzdW0oZGlmZikpICU+JQogIG11dGF0ZShtYSA9IGMoTkEsIE5BLHJvbGxtZWFuKGRpZmYsIDMsIGFsaWduID0gInJpZ2h0IikpKSAlPiUKICAgICAgZ2dwbG90KGFlcyhkYXRlLCAKICAgICAgICAgICAgICAgICBtYSwgCiAgICAgICAgICAgICAgICAgY29sb3IgPSBSZWdpb24pKSArCiAgICAgIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXM9TllfcmVnaW9uX3BhbGV0dGUpICsKICAgICAgZ2VvbV9saW5lKHNpemUgPSAxKSArCiAgICAgIHNjYWxlX3lfY29udGludW91cygKICAgICAgICB0cmFucyA9ICJsb2cxMCIsCiAgICAgICAgYnJlYWtzID0gYygxMCwxMDAsNTAwLDEwMDAsNTAwMCwxMDAwMCwgNTAwMDApCiAgICAgICkgKwogICAgICBzY2FsZV94X2RhdGV0aW1lKGRhdGVfYnJlYWtzID0gIjEgd2VlayIsIGRhdGVfbWlub3JfYnJlYWtzID0gIjEgZGF5IiwgZGF0ZV9sYWJlbHMgPSAiJWIgJWQiKSArCiAgICAgIHlsYWIoIk5ldyBDYXNlcyIpICsgCiAgICAgIHhsYWIoIkRhdGUiKSArCiAgICAgIGdndGl0bGUoIk5ldyBZb3JrIFN0YXRlIE5FVyByZXBvcnRlZCBDT1ZJRC0xOSBDYXNlcyIpICsKICAgICAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hc19kYXRldGltZSgiMjAyMC0wMy0yMCIpLCBsaW5ldHlwZT0iR292LiBDdW9tbyBpc3N1ZXMgc3RheS1hdC1ob21lIG9yZGVyIiksIGNvbG9yID0gImJsYWNrIikgKyAKICAgICAgc2NhbGVfbGluZXR5cGVfbWFudWFsKG5hbWUgPSAiRXZlbnRzIiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICB2YWx1ZXMgPSBjKDIpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgIGd1aWRlID0gZ3VpZGVfbGVnZW5kKG92ZXJyaWRlLmFlcyA9IGxpc3QoY29sb3IgPSBjKCJibGFjayIpKSkpICsKICAgICAgTlVMTApnCmBgYAoKUGxvdGx5IHRlc3QKYGBge3J9CnAgPC0gZ2dwbG90bHkoZykKcApgYGAKCg==